home *** CD-ROM | disk | FTP | other *** search
/ PCMania 24 / PCMania CD24.nrg / video / aviplay.txt < prev    next >
Text File  |  1994-09-07  |  3KB  |  132 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "AVI & FLI Player (C) J.D.A. 94"
  6.    ClientHeight    =   3720
  7.    ClientLeft      =   1416
  8.    ClientTop       =   2352
  9.    ClientWidth     =   4932
  10.    Height          =   4464
  11.    Icon            =   AVIPLAY.FRX:0000
  12.    Left            =   1368
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    ScaleHeight     =   310
  16.    ScaleMode       =   3  'Pixel
  17.    ScaleWidth      =   411
  18.    Top             =   1656
  19.    Width           =   5028
  20.    Begin MMControl MMControl1 
  21.       BackVisible     =   0   'False
  22.       BorderStyle     =   0  'None
  23.       EjectVisible    =   0   'False
  24.       Height          =   330
  25.       Left            =   120
  26.       RecordVisible   =   0   'False
  27.       TabIndex        =   0
  28.       Top             =   120
  29.       Width           =   2370
  30.    End
  31.    Begin PictureBox Picture1 
  32.       AutoRedraw      =   -1  'True
  33.       Height          =   3630
  34.       Left            =   60
  35.       ScaleHeight     =   240.8
  36.       ScaleMode       =   0  'User
  37.       ScaleWidth      =   320.201
  38.       TabIndex        =   1
  39.       Top             =   60
  40.       Width           =   4815
  41.    End
  42.    Begin Menu Fuente 
  43.       Caption         =   "Fuente"
  44.       Begin Menu Vφdeo 
  45.          Caption         =   "Vφdeo"
  46.          Checked         =   -1  'True
  47.       End
  48.       Begin Menu Animaci≤n 
  49.          Caption         =   "Animaci≤n"
  50.       End
  51.       Begin Menu Separador 
  52.          Caption         =   "-"
  53.       End
  54.       Begin Menu Salir 
  55.          Caption         =   "Salir"
  56.       End
  57.    End
  58. End
  59. Sub Animaci≤n_Click ()
  60.     
  61.     Vφdeo.Checked = 0
  62.     Animaci≤n.Checked = 1
  63.     Form1.MMControl1.Command = "Close"
  64.     Form1.MMControl1.Notify = True
  65.     Form1.MMControl1.Wait = True
  66.     Form1.MMControl1.Shareable = False
  67.     Form1.MMControl1.DeviceType = "Animation1"
  68.     Form1.MMControl1.FileName = "socket.fli"
  69.  
  70.     Form1.MMControl1.Command = "Open"
  71.     'Form1.MMControl1.hWndDisplay = Form1.hWnd
  72.     Form1.MMControl1.EjectVisible = False
  73.     Form1.MMControl1.RecordVisible = False
  74.     Form1.MMControl1.StepVisible = 1
  75.     Form1.MMControl1.BackVisible = 1
  76.     Form1.MMControl1.NextVisible = 0
  77.     Form1.MMControl1.PrevVisible = 1
  78.  
  79. End Sub
  80.  
  81. Sub Form_Load ()
  82.  
  83. Form1.ScaleWidth = 340
  84. Form1.ScaleHeight = 250
  85.  
  86. Vφdeo_Click
  87.  
  88. End Sub
  89.  
  90. Sub Form_Unload (Cancel As Integer)
  91.  
  92.   Form1.MMControl1.Command = "Close"
  93.  
  94. End Sub
  95.  
  96. Sub MMControl1_Done (NotifyCode As Integer)
  97.  
  98.     Form1.MMControl1.Command = "Prev"
  99.  
  100. End Sub
  101.  
  102. Sub Salir_Click ()
  103.  
  104. End
  105.  
  106. End Sub
  107.  
  108. Sub Vφdeo_Click ()
  109.     
  110.     Vφdeo.Checked = 1
  111.     Animaci≤n.Checked = 0
  112.     Picture1.ScaleHeight = 240
  113.     Picture1.ScaleWidth = 320
  114.     Form1.MMControl1.Command = "Close"
  115.     Form1.MMControl1.Notify = True
  116.     Form1.MMControl1.Wait = True
  117.     Form1.MMControl1.Shareable = False
  118.     Form1.MMControl1.DeviceType = "AVIVideo"
  119.     Form1.MMControl1.FileName = "t2-trans.avi"
  120.  
  121.     Form1.MMControl1.Command = "Open"
  122.     Form1.MMControl1.hWndDisplay = Picture1.hWnd
  123.     Form1.MMControl1.EjectVisible = False
  124.     Form1.MMControl1.RecordVisible = False
  125.     Form1.MMControl1.StepVisible = 1
  126.     Form1.MMControl1.BackVisible = 1
  127.     Form1.MMControl1.NextVisible = 0
  128.     Form1.MMControl1.PrevVisible = 1
  129.     
  130. End Sub
  131.  
  132.